let catstr s s' = String.concat ~sep:"" [ s; s' ]
